<?PHP
function geenCache()
{header("Expires: Mon, 26 Jul 1997 05:00:00 GMT");
 header("Last-Modified: ".gmdate("D, d M Y H:i:s")." GMT"); 
 header("Cache-control: post-check=0,pre-check=0",false);
 header("Pragma: no-cache");
}
 
function ampersand($texTekst)
{$texTekst = str_replace ("&amp;", "&", $texTekst);
 $texTekst = str_replace ("&lt;", "<", $texTekst);
 $texTekst = str_replace ("&gt;", ">", $texTekst);	
 return $texTekst;
}

function TeXpdf($texTekst)
{//Goede naam kiezen
  srand((double)microtime() ^getmypid() ^time());
  $aanhangsel = rand();
  $texTekst = ampersand($texTekst);
  $TeXbestand = "TeXpdf$aanhangsel";

 //Het tex-bestand opslaan
  $fp = fopen("$TeXbestand.tex", "w");
     // uitcommenten  <xml version=...
  fputs ($fp, "%");
  fputs($fp, $texTekst);
  fputs($fp,'');
  fclose($fp);

// Latex-vertaling starten. Het bestand '$TeXbestand'.tex wordt vertaald naar '$TeXbestand'.pdf.
  exec("pdflatex -interaction=batchmode $TeXbestand.tex > $TeXbestand.err", $fout);

// PDF-gegevens doorgeven. 

  header('Content-type: application/pdf');
  echo readfile("$TeXbestand.pdf");  

// hulpbestanden wissen
  unlink("$TeXbestand.pdf"); 
  unlink("$TeXbestand.tex"); 
  unlink("$TeXbestand.log"); 
  unlink("$TeXbestand.aux");
  unlink("$TeXbestand.err");
  }

// De testfunctie bewaart (voor debugging) enkel het TeX-bestand op de harde schijf.  
function testTeX($texTekst)
{ 
 //Het tex-bestand vertalen
  $texTekst = ampersand($texTekst);
  $TeXbestand = "TeXpdf";

 //Het tex-bestand opslaan
  $fp = fopen("$TeXbestand.tex", "w");

 // uitcommenten  <xml version=...
   fputs ($fp, "%");
   fputs($fp, $texTekst);
   fputs($fp,'');
   fclose($fp);
}

// Deze testfunctie wist geen enkel tussenbestand.  
function testTeXpdf($texTekst)
{ 
 //Het tex-bestand vertalen
  //srand((double)microtime() ^getmypid() ^time());
  $aanhangsel = '';//rand();
  $texTekst = ampersand($texTekst);
  $TeXbestand = "TeXpdf$aanhangsel";

 //Het tex-bestand opslaan
  $fp = fopen("$TeXbestand.tex", "w");
 // uitcommenten  <xml version=...
   fputs ($fp, "%");
   fputs($fp, $texTekst);
   fputs($fp,'');
   fclose($fp);

// Latex-vertaling starten. Het bestand '$TeXbestand'.tex wordt vertaald naar '$TeXbestand'.pdf.
  exec("pdflatex  -interaction=batchmode  $TeXbestand.tex > $TeXbestand.err", $fout);

  // PDF-gegevens doorgeven. 
  header('Content-type: application/pdf');
  echo readfile("$TeXbestand.pdf");  
}

?>